| > !Text>Draw.!Run
|
| Run file for Text>Draw
|
| by Chris Johnson
|
RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
|
IconSprites <Obey$Dir>.!Sprites
|
| Find path to file
Set TextDraw$Dir <Obey$Dir>
|
If "<Font$Prefix>"="" Then Error You need to double click on !Fonts before running this application
|
set temp$flag 1
RMEnsure ABCLibrary 0 set temp$flag 0
RMensure ABCLibrary 4.00 if "<temp$flag>" = "1" Then Error 0 Old ABCLib installed Else RMLoad <Obey$Dir>.modules.ABCLib
RMensure ABCLibrary 4.00 Error You need the ABClibrary ver 4.00 or later installed
|
RMensure FontMenu 0 RMLoad <Obey$Dir>.modules.FontMenu
RMensure FontMenu 0 Error You need the FontMenu module installed
|
set temp$flag 1
RMEnsure CJWimpUtil 0 set temp$flag 0
RMEnsure CJWimpUtil 0.11 if "<temp$flag>" = "1" Then Error 0 Old CJWimpUtil module installed Else RMLoad <Obey$Dir>.modules.cjWimpUtil
RMEnsure CJWimpUtil 0.11 Error You need the CJWimpUtil module installed
|
set temp$flag 1
RMEnsure CJdrawUtil 0 set temp$flag 0
RMEnsure CJdrawUtil 0.08 if "<temp$flag>" = "1" Then Error 0 Old CJdrawUtil installed Else RMLoad <Obey$Dir>.modules.cjdrawUtil
RMEnsure CJdrawUtil 0.08 Error You need the CJdrawUtil module installed
unset temp$flag
|
| Check memory allocation
WimpSlot -min 96K -max 96K
|
| Now start program
Run <TextDraw$Dir>.!RunImage
